String UnzipFile(String filename,String outputDir)

    filename - path to the .zip file to be unzipped

    outputDir - path to the directory where the unzipped files are going to be after execution of the function

    return value - String ("Unzipped filename.") where filename is the name of the original .zip file if there was no errors ; contains an error message if one occurred

String ZipFile(String filesIn, String fileout)

    filesIn - list of semicolon separated files to zip

    fileout  path and name of the .zip file to be created

    return value  (Created filename.) where filename is the name of the .zip created file if there were no errors ; contains an error message if one occurred 

String GUnzipFile(String zipFilename,String outputFile)

    zipFilename - path to the .gz file to be unzipped

    outputFile - path and file name of the unzipped file to be after execution of the function

    return value - String ("GUnzipped filename.") where filename is the name of the original .gz file if there was no errors ; contains an error message if one occurred

String GZipFile(String fileIn, String zipOut)

    fileIn - file to compress

    fileout  path and name of the .gz file to be created

    return value  (Created filename.) where filename is the name of the .gz created file if there were no errors ; contains an error message if one occurred 



NOTE:

'take note the outputDir should have "everyone access rights"


SAMPLE:


Dim z,iRes

Set z = Server.CreateObject("Pnvzip.ZipFunctions")
iRes = z.ZipFile("C:\WINDOWS\system32\pnvzip12.dll", "d:\shared\ned.zip")

Response.Write "Result code is:" & iRes & "<br>"
response.end



Sample use of UnzipFile function:

Dim complPath,unzippedPath,resp

complPath="C:/directory/myzip.zip"
unzippedPath="C:/directory/unzipped/"
Set Arch = Server.CreateObject("Pnvzip.ZipFunctions")
resp=Arch.UnzipFile(complPath,unzippedPath)
Set Arch = Nothing
Response.Write "response=" & resp 


Sample use of ZipFile function:

Dim sInFiles,sZipPath,resp

sInFiles="C:/mydir/doc1.txt;C:/mydir/doc2.txt;C:/mydir/doc5.txt"
sZipPath="C:/mydir/myzip.zip"
Set Arch = Server.CreateObject("Pnvzip.ZipFunctions")
resp=Arch.ZipFile(sInFiles,sZipPath)
Set Arch = Nothing
Response.Write "response=" & resp 
